(edebug-functionp): Recognize compiled functions.

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 9061751082d01c92adf3eaafae038d64300027c8..0dcb21780e873f1a8b2efad8c588f486a5a38df7 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -327,6 +327,7 @@ Assumes Emacs Lisp syntax is active."
   (while (and (symbolp object) (fboundp object))
     (setq object (symbol-function object)))
   (if (or (subrp object)
+         (byte-code-function-p object)
          (and (listp object)
               (eq (car object) 'lambda)
               (listp (car (cdr object)))))